Labels:text | screenshot | font | document | menu | number OCR: Description AutoTester Code Save cursor position. LocateCursor host $FOCUSWND W COLSAVE W. ROWSAVE Loop through all cursor positions. Label "LOOKLOOP"; Look for field label "Name" Lock text "Name" host "SFOCUSWND" @ -9. 0. - 4, , 0 (cursor-relative LOOK function). cursor area Found label? No? If No Go to next line: >tab Only one field per row. Are we back where we started? >LocateCursor host $FOCUSWND W. COL W. ROW >Compare W. ROW W. ROWSAVE >If Not equal Not done yet, keep looking. >>Goto "LOOKLOOP" NOT Find Field Label Display screen message >Message,"Name FIELD NOT FOUND" wait 1> Write out log file Log $CURLOG "Name FIELD NOT FOUND" Set Field flag to No. > Assign FLAG . FIELD = "NO" Call outline to print the screen. >Call "PRT_SCR" Return to test-case outline called from. Resume Table 1: FTS. The Auto Tester navigation code using cursor-relative LOOK function (AutoTester code by Steve Vance, stu@well.com).
